home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Utilities / MungeImage 1.2.0 / MungeCommon.p < prev    next >
Encoding:
Text File  |  1994-08-13  |  1.6 KB  |  66 lines  |  [TEXT/PJMM]
  1. unit MungeCommon;
  2.  
  3. interface
  4.  
  5.     const
  6.         csMountImage = 666;                        (* only file_to_mount field in PB *)
  7.         (* 667 was used in pre-release version *)
  8.         csMountImageWithProgress = 668;
  9.  
  10.     type
  11.         formatDesc = record        (* don't ask us what it means or we'll start to whimper *)
  12.                 capacity: longint;
  13.                 stuff: longint;
  14.             end;
  15.  
  16.     const
  17.         mf_read_write = 0;                    (* bits in the mount_flags *)
  18.         mf_read_write_mask = 1;        (* masks for same *)
  19.  
  20.     type
  21.         mungeParamBlockRec = record
  22.                 qLink: QElemPtr;
  23.                 qType: INTEGER;
  24.                 ioTrap: INTEGER;
  25.                 ioCmdAddr: Ptr;
  26.                 ioCompletion: ProcPtr;
  27.                 ioResult: OSErr;
  28.                 ioNamePtr: StringPtr;
  29.                 ioVRefNum: INTEGER;
  30.                 ioCRefNum: integer;
  31.                 csCode: integer;
  32.                 case integer of
  33.                     0: (
  34.                             file_to_mount: FSSpecPtr;
  35.                             mount_flags: longint;
  36.                             progress: ProcPtr;            (* function MyProgress(pb : mungeParamBlockPtr) : OSErr; *)
  37.                             refcon: longint;
  38.                             progress_done: Fract;
  39.                             spare: array[1..100] of signedByte
  40.                     );
  41.                     1: (
  42.                             ioMisc: Ptr;
  43.                             ioBuffer: Ptr;
  44.                             ioReqCount: LONGINT;
  45.                             ioActCount: LONGINT;
  46.                             ioPosMode: INTEGER;
  47.                             ioPosOffset: LONGINT
  48.                     );
  49.                     2: (
  50.                             format_count: integer;
  51.                             format_point: ^formatDesc;
  52.                     );
  53.                     3: (
  54.                             status_current_track: integer;
  55.                             status_flags: signedByte;            (* the following 4 bytes must be in order and immediately in front of dqel *)
  56.                             status_disk_in_place: signedByte;
  57.                             status_drive_installed: signedByte;
  58.                             status_number_of_sides: signedByte;
  59.                             status_dqel: DrvQEl;
  60.                     );
  61.             end;
  62.         mungeParamBlockPtr = ^mungeParamBlockRec;
  63.  
  64. implementation
  65.  
  66. end. (* MungeCommon *)